program Project1; // Zadanie 3.4

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i : Integer;

begin
  Writeln('Program wyswietla liczby calkowite od 1 do 20.');

  for i := 1 to 20 do
  if i < 20 then
    Write(i, ', ')
  else
    Write(i, '.');

  Readln; // czeka na nacisniecie klawisza Enter
end.
